Top 10k strings from Ujpuzi (1998)(Laszlo Nyitrai)(128k)(hu).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

  19 THEN GO TO 215
   2 NYITRAI BASIC 1998'
   2 ;"ABC-s PUZZLE"
   2 180 LET k=1+ INT (16* RND ): IF
   2  c$(k)="x" THEN GO TO 180
   1 i+1,j-1;"   "
   1 c$(k)="x "
   1 a$=" ABCDEFGHIJKLMNO"
   1 UDG CODE USR "A",168
   1 POKE 23607,162
   1 POKE 23606,150
   1 KEZETES BET
   1 E9E9E9E9E9
   1 CKJDGFBNALHMI OE
   1 BETUKOD 41852,768
   1 AT s1,o1-1;"   "; AT s1+1,o
   1 ABCDEFGHIJKLMNO D
   1 ;f$;f$;f$;f$
   1 ;e$;e$;e$;e$
   1 ;d$;d$;d$;d$
   1 ;"Uj rekord!";e
   1 ;"Nyomj egy gombot,ha meg jatszol"
   1 ;"Min=";min;" "
   1 ;"IRD BE A SZINEKET!!"
   1 ;"A KURZOR NYILAKKAL(5-6-7-8)","  MOZOGVA RENDEZD ABC";" SORREND-","  BE A BET
   1 ;"!!!SIKER!!!"
   1 ;"  "; AT i,j-1;"  "; AT i+
   1 ;"   "; AT i,j-1;"   "; AT 
   1 6)-3*(y$="6" AND s1>5)
   1 240  PRINT AT s1-1,o1-1;"   "; 
   1 235 IF y$=" " THEN GO TO 215
   1 230 LET y$= SCREEN$ (s1,o1)
   1 225 LET s1=s+3*(y$="7" AND s1<1
   1 220 LET o1=o+3*(y$="5" AND o1<2
   1 215 LET y$= INKEY$ : IF y$=" " 
   1 210 LET s=s1: LET o=o1
   1 205 BEEP .1,30: BEEP .1,30: BEE
   1 200 NEXT j: NEXT i
   1 195 LET c$(k)="x "
   1 190 IF c$(k)=" " THEN LET s1=i:
   1 185 PRINT AT i,j;c$(k)
   1 1,j-1;"  "
   1 1)-3*(y$="8" AND o1>10)
   1 -7-8)","  MOZOGVA RENDEZD ";" SORREND-","  BE A BET
   1 "KERET ";i;" ALAPSZIN ";j
   1  LET o1=j: PRINT AT i-1,j-1
   1  ABCDEFGHIJKLMNOB